home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir44 / dungeon9.zip / HELP.BAS < prev    next >
BASIC Source File  |  1994-05-15  |  48KB  |  1,971 lines
  1.  
  2.  REM The Dungeon Help Utility v9.0
  3.  
  4.  ' help function/0 key
  5.  DO ' loop to redisplay help screen
  6.    GOSUB Display.Help.Screen ' display help screen
  7.    DO ' loop to get key of function to display help on
  8.      x$ = ""' get keystroke
  9.      WHILE x$ = "" ' wait for input
  10.        x$ = INKEY$ ' get keystroke
  11.      WEND ' end wait
  12.      SELECT CASE LEN(x$)
  13.      ' before any help is displayed,
  14.      ' output clear screen.
  15.      CASE 1
  16.        SELECT CASE x$
  17.        CASE CHR$(1) TO CHR$(10) ' use staff keys
  18.          COLOR 14, 1: CLS
  19.          GOSUB Help.Screen77
  20.          EXIT DO
  21.        CASE CHR$(17) TO CHR$(26) ' use ring keys
  22.          COLOR 14, 1: CLS
  23.          GOSUB Help.Screen78
  24.          EXIT DO
  25.        CASE "+" ' info key
  26.          COLOR 14, 1: CLS
  27.          GOSUB Help.Screen41
  28.          EXIT DO
  29.        CASE "1" ' fight key
  30.          COLOR 14, 1: CLS
  31.          GOSUB Help.Screen42
  32.          EXIT DO
  33.        CASE "2" ' move south
  34.          COLOR 14, 1: CLS
  35.          GOSUB Help.Screen43
  36.          EXIT DO
  37.        CASE "3" ' cast key
  38.          COLOR 14, 1: CLS
  39.          GOSUB Help.Screen44
  40.          EXIT DO
  41.        CASE "4" ' move west
  42.          COLOR 14, 1: CLS
  43.          GOSUB Help.Screen45
  44.          EXIT DO
  45.        CASE "5", CHR$(13) ' enter/accept keys
  46.          COLOR 14, 1: CLS
  47.          GOSUB Help.Screen46
  48.          EXIT DO
  49.        CASE "6" ' move east
  50.          COLOR 14, 1: CLS
  51.          GOSUB Help.Screen47
  52.          EXIT DO
  53.        CASE "7" ' evade key
  54.          COLOR 14, 1: CLS
  55.          GOSUB Help.Screen48
  56.          EXIT DO
  57.        CASE "8" ' move north
  58.          COLOR 14, 1: CLS
  59.          GOSUB Help.Screen49
  60.          EXIT DO
  61.        CASE "9" ' ignore key
  62.          COLOR 14, 1: CLS
  63.          GOSUB Help.Screen50
  64.          EXIT DO
  65.        CASE "." ' stats key
  66.          COLOR 14, 1: CLS
  67.          GOSUB Help.Screen51
  68.          EXIT DO
  69.        CASE "-" ' chants key
  70.          COLOR 14, 1: CLS
  71.          GOSUB Help.Screen52
  72.          EXIT DO
  73.        CASE "x", "X" ' players symbol
  74.          COLOR 14, 1: CLS
  75.          GOSUB Help.Screen53
  76.          EXIT DO
  77.        CASE "#" ' monster symbol
  78.          COLOR 14, 1: CLS
  79.          GOSUB Help.Screen54
  80.          EXIT DO
  81.        CASE "~" ' scroll symbol
  82.          COLOR 14, 1: CLS
  83.          GOSUB Help.Screen55
  84.          EXIT DO
  85.        CASE "$" ' gold symbol
  86.          COLOR 14, 1: CLS
  87.          GOSUB Help.Screen56
  88.          EXIT DO
  89.        CASE CHR$(254) ' chest symbol
  90.          COLOR 14, 1: CLS
  91.          GOSUB Help.Screen57
  92.          EXIT DO
  93.        CASE "^" ' trap symbol
  94.          COLOR 14, 1: CLS
  95.          GOSUB Help.Screen58
  96.          EXIT DO
  97.        CASE "o", "O" ' pit symbol
  98.          COLOR 14, 1: CLS
  99.          GOSUB Help.Screen59
  100.          EXIT DO
  101.        CASE "*" ' gem symbol
  102.          COLOR 14, 1: CLS
  103.          GOSUB Help.Screen60
  104.          EXIT DO
  105.        CASE "!" ' teleporter symbol
  106.          COLOR 14, 1: CLS
  107.          GOSUB Help.Screen61
  108.          EXIT DO
  109.        CASE "?" ' temple symbol
  110.          COLOR 14, 1: CLS
  111.          GOSUB Help.Screen62
  112.          EXIT DO
  113.        CASE "0" ' help key
  114.          COLOR 14, 1: CLS
  115.          GOSUB Help.Screen63
  116.          EXIT DO
  117.        CASE ">" ' stairs up symbol
  118.          COLOR 14, 1: CLS
  119.          GOSUB Help.Screen64
  120.          EXIT DO
  121.        CASE "<" ' stairs down symbol
  122.          COLOR 14, 1: CLS
  123.          GOSUB Help.Screen65
  124.          EXIT DO
  125.        CASE "\" ' trade key
  126.          COLOR 14, 1: CLS
  127.          GOSUB Help.Screen66
  128.          EXIT DO
  129.        CASE ";" ' buy key
  130.          COLOR 14, 1: CLS
  131.          GOSUB Help.Screen80
  132.          EXIT DO
  133.        CASE "=" ' change level key
  134.          COLOR 14, 1: CLS
  135.          GOSUB Help.Screen67
  136.          EXIT DO
  137.        CASE "'" ' use magic item key
  138.          COLOR 14, 1: CLS
  139.          GOSUB Help.Screen68
  140.          EXIT DO
  141.        CASE "/" ' inventory key
  142.          COLOR 14, 1: CLS
  143.          GOSUB Help.Screen69
  144.          EXIT DO
  145.        CASE "|" ' wand symbol
  146.          COLOR 14, 1: CLS
  147.          GOSUB Help.Screen70
  148.          EXIT DO
  149.        CASE "@" ' potion symbol
  150.          COLOR 14, 1: CLS
  151.          GOSUB Help.Screen71
  152.          EXIT DO
  153.        CASE "%" ' staff symbol
  154.          COLOR 14, 1: CLS
  155.          GOSUB Help.Screen74
  156.          EXIT DO
  157.        CASE "&" ' coins symbol
  158.          COLOR 14, 1: CLS
  159.          GOSUB Help.Screen75
  160.          EXIT DO
  161.        CASE CHR$(34) ' ring symbol
  162.          COLOR 14, 1: CLS
  163.          GOSUB Help.Screen76
  164.          EXIT DO
  165.        CASE "`" ' user list
  166.          COLOR 14, 1: CLS
  167.          GOSUB Help.Screen81
  168.          EXIT DO
  169.        CASE " " ' exit help
  170.          COLOR 7, 0
  171.          CLS
  172.          END ' exit routine
  173.        END SELECT
  174.      CASE 2
  175.        sp = ASC(MID$(x$, 2))' convert extended acsii input key
  176.        SELECT CASE sp ' secondary/extended key functions
  177.        CASE 81 ' PageDown, fight key
  178.          COLOR 14, 1: CLS
  179.          GOSUB Help.Screen42
  180.          EXIT DO
  181.        CASE 80 ' Down, move player south
  182.          COLOR 14, 1: CLS
  183.          GOSUB Help.Screen43
  184.          EXIT DO
  185.        CASE 79 ' End, cast key
  186.          COLOR 14, 1: CLS
  187.          GOSUB Help.Screen44
  188.          EXIT DO
  189.        CASE 75 ' Left, move player west
  190.          COLOR 14, 1: CLS
  191.          GOSUB Help.Screen45
  192.          EXIT DO
  193.        CASE 76 ' Center, acceptance key
  194.          COLOR 14, 1: CLS
  195.          GOSUB Help.Screen46
  196.          EXIT DO
  197.        CASE 77 ' Right, move player east
  198.          COLOR 14, 1: CLS
  199.          GOSUB Help.Screen47
  200.          EXIT DO
  201.        CASE 73 ' PageUp, evade key
  202.          COLOR 14, 1: CLS
  203.          GOSUB Help.Screen48
  204.          EXIT DO
  205.        CASE 72 ' Up, move player north
  206.          COLOR 14, 1: CLS
  207.          GOSUB Help.Screen49
  208.          EXIT DO
  209.        CASE 71 ' Home, ignore key
  210.          COLOR 14, 1: CLS
  211.          GOSUB Help.Screen50
  212.          EXIT DO
  213.        CASE 82 ' Insert, help key
  214.          COLOR 14, 1: CLS
  215.          GOSUB Help.Screen63
  216.          EXIT DO
  217.        CASE 116 ' Control-Right, info key
  218.          COLOR 14, 1: CLS
  219.          GOSUB Help.Screen41
  220.          EXIT DO
  221.        CASE 83 ' Delete, stats key
  222.          COLOR 14, 1: CLS
  223.          GOSUB Help.Screen51
  224.          EXIT DO
  225.        CASE 118 ' Control-PageDown, chants key
  226.          COLOR 14, 1: CLS
  227.          GOSUB Help.Screen52
  228.          EXIT DO
  229.        CASE 119 ' Control-Home, trade key
  230.          COLOR 14, 1: CLS
  231.          GOSUB Help.Screen66
  232.          EXIT DO
  233.        CASE 15 ' Shift-Tab, buy key
  234.          COLOR 14, 1: CLS
  235.          GOSUB Help.Screen80
  236.          EXIT DO
  237.        CASE 117 ' Control-End, change level key
  238.          COLOR 14, 1: CLS
  239.          GOSUB Help.Screen67
  240.          EXIT DO
  241.        CASE 115 ' Control-Left, inventory key
  242.          COLOR 14, 1: CLS
  243.          GOSUB Help.Screen69
  244.          EXIT DO
  245.        CASE 131 ' Alt-=, user list
  246.          COLOR 14, 1: CLS
  247.          GOSUB Help.Screen81
  248.          EXIT DO
  249.        CASE 132 ' Control-PageUp, use key
  250.          COLOR 14, 1: CLS
  251.          GOSUB Help.Screen68
  252.          EXIT DO
  253.        CASE 30, 48, 46, 32, 18, 33, 34, 35, 23, 36 ' use wand keys
  254.          COLOR 14, 1: CLS
  255.          GOSUB Help.Screen72
  256.          EXIT DO
  257.        CASE 16, 19, 31, 20, 22, 47, 17, 45, 21, 44 ' use potion keys
  258.          COLOR 14, 1: CLS
  259.          GOSUB Help.Screen73
  260.          EXIT DO
  261.        CASE 120 TO 129 ' use power globe keys
  262.          COLOR 14, 1: CLS
  263.          GOSUB Help.Screen79
  264.          EXIT DO
  265.        CASE 59 TO 68 ' spell type 1, F1 to F10
  266.          sp = sp - 58' calculate spell number 1 to 10
  267.          SELECT CASE sp ' display spell help screen
  268.          CASE 1
  269.            COLOR 14, 1: CLS
  270.            GOSUB Help.Screen1
  271.            EXIT DO
  272.          CASE 2
  273.            COLOR 14, 1: CLS
  274.            GOSUB Help.Screen2
  275.            EXIT DO
  276.          CASE 3
  277.            COLOR 14, 1: CLS
  278.            GOSUB Help.Screen3
  279.            EXIT DO
  280.          CASE 4
  281.            COLOR 14, 1: CLS
  282.            GOSUB Help.Screen4
  283.            EXIT DO
  284.          CASE 5
  285.            COLOR 14, 1: CLS
  286.            GOSUB Help.Screen5
  287.            EXIT DO
  288.          CASE 6
  289.            COLOR 14, 1: CLS
  290.            GOSUB Help.Screen6
  291.            EXIT DO
  292.          CASE 7
  293.            COLOR 14, 1: CLS
  294.            GOSUB Help.Screen7
  295.            EXIT DO
  296.          CASE 8
  297.            COLOR 14, 1: CLS
  298.            GOSUB Help.Screen8
  299.            EXIT DO
  300.          CASE 9
  301.            COLOR 14, 1: CLS
  302.            GOSUB Help.Screen9
  303.            EXIT DO
  304.          CASE 10
  305.            COLOR 14, 1: CLS
  306.            GOSUB Help.Screen10
  307.            EXIT DO
  308.          END SELECT
  309.        CASE 94 TO 103 ' spell type 2, Control-F1 to Control-F10
  310.          sp = sp - 93' calculate spell number 1 to 10
  311.          SELECT CASE sp ' display spell help screen
  312.          CASE 1
  313.            COLOR 14, 1: CLS
  314.            GOSUB Help.Screen11
  315.            EXIT DO
  316.          CASE 2
  317.            COLOR 14, 1: CLS
  318.            GOSUB Help.Screen12
  319.            EXIT DO
  320.          CASE 3
  321.            COLOR 14, 1: CLS
  322.            GOSUB Help.Screen13
  323.            EXIT DO
  324.          CASE 4
  325.            COLOR 14, 1: CLS
  326.            GOSUB Help.Screen14
  327.            EXIT DO
  328.          CASE 5
  329.            COLOR 14, 1: CLS
  330.            GOSUB Help.Screen15
  331.            EXIT DO
  332.          CASE 6
  333.            COLOR 14, 1: CLS
  334.            GOSUB Help.Screen16
  335.            EXIT DO
  336.          CASE 7
  337.            COLOR 14, 1: CLS
  338.            GOSUB Help.Screen17
  339.            EXIT DO
  340.          CASE 8
  341.            COLOR 14, 1: CLS
  342.            GOSUB Help.Screen18
  343.            EXIT DO
  344.          CASE 9
  345.            COLOR 14, 1: CLS
  346.            GOSUB Help.Screen19
  347.            EXIT DO
  348.          CASE 10
  349.            COLOR 14, 1: CLS
  350.            GOSUB Help.Screen20
  351.            EXIT DO
  352.          END SELECT
  353.        CASE 84 TO 93 ' spell type 3, Shift-F1 to Shift-F10
  354.          sp = sp - 83' calculate spell number 1 to 10
  355.          SELECT CASE sp ' display spell help screen
  356.          CASE 1
  357.            COLOR 14, 1: CLS
  358.            GOSUB Help.Screen21
  359.            EXIT DO
  360.          CASE 2
  361.            COLOR 14, 1: CLS
  362.            GOSUB Help.Screen22
  363.            EXIT DO
  364.          CASE 3
  365.            COLOR 14, 1: CLS
  366.            GOSUB Help.Screen23
  367.            EXIT DO
  368.          CASE 4
  369.            COLOR 14, 1: CLS
  370.            GOSUB Help.Screen24
  371.            EXIT DO
  372.          CASE 5
  373.            COLOR 14, 1: CLS
  374.            GOSUB Help.Screen25
  375.            EXIT DO
  376.          CASE 6
  377.            COLOR 14, 1: CLS
  378.            GOSUB Help.Screen26
  379.            EXIT DO
  380.          CASE 7
  381.            COLOR 14, 1: CLS
  382.            GOSUB Help.Screen27
  383.            EXIT DO
  384.          CASE 8
  385.            COLOR 14, 1: CLS
  386.            GOSUB Help.Screen28
  387.            EXIT DO
  388.          CASE 9
  389.            COLOR 14, 1: CLS
  390.            GOSUB Help.Screen29
  391.            EXIT DO
  392.          CASE 10
  393.            COLOR 14, 1: CLS
  394.            GOSUB Help.Screen30
  395.            EXIT DO
  396.          END SELECT
  397.        CASE 104 TO 113 ' spell type 4, Alt-F1 to Alt-F10
  398.          sp = sp - 103' calculate spell number 1 to 10
  399.          SELECT CASE sp ' display spell help screen
  400.          CASE 1
  401.            COLOR 14, 1: CLS
  402.            GOSUB Help.Screen31
  403.            EXIT DO
  404.          CASE 2
  405.            COLOR 14, 1: CLS
  406.            GOSUB Help.Screen32
  407.            EXIT DO
  408.          CASE 3
  409.            COLOR 14, 1: CLS
  410.            GOSUB Help.Screen33
  411.            EXIT DO
  412.          CASE 4
  413.            COLOR 14, 1: CLS
  414.            GOSUB Help.Screen34
  415.            EXIT DO
  416.          CASE 5
  417.            COLOR 14, 1: CLS
  418.            GOSUB Help.Screen35
  419.            EXIT DO
  420.          CASE 6
  421.            COLOR 14, 1: CLS
  422.            GOSUB Help.Screen36
  423.            EXIT DO
  424.          CASE 7
  425.            COLOR 14, 1: CLS
  426.            GOSUB Help.Screen37
  427.            EXIT DO
  428.          CASE 8
  429.            COLOR 14, 1: CLS
  430.            GOSUB Help.Screen38
  431.            EXIT DO
  432.          CASE 9
  433.            COLOR 14, 1: CLS
  434.            GOSUB Help.Screen39
  435.            EXIT DO
  436.          CASE 10
  437.            COLOR 14, 1: CLS
  438.            GOSUB Help.Screen40
  439.            EXIT DO
  440.          END SELECT
  441.        END SELECT
  442.      END SELECT
  443.    LOOP
  444.  LOOP
  445.  COLOR 7, 0
  446.  CLS
  447.  END ' exit routine
  448.  
  449. Help.Screen1:
  450.  LOCATE 10, 15, 0
  451.  PRINT "The heal spell restores hit points to your player."
  452.  LOCATE 11, 15, 0
  453.  PRINT "The amount restored is equal to your constitution."
  454.  GOSUB Key.Pressed
  455.  RETURN
  456.  
  457. Help.Screen2:
  458.  LOCATE 10, 15, 0
  459.  PRINT "The protection from evil spell repells a monster's"
  460.  LOCATE 11, 15, 0
  461.  PRINT "attacks for one round. The number of hits repelled"
  462.  LOCATE 12, 15, 0
  463.  PRINT "is equal to your dexterity."
  464.  GOSUB Key.Pressed
  465.  RETURN
  466.  
  467. Help.Screen3:
  468.  LOCATE 10, 15, 0
  469.  PRINT "The magic missile spell causes a dartlike object to"
  470.  LOCATE 11, 15, 0
  471.  PRINT "fly from your player's hand.  This missile hits the"
  472.  LOCATE 12, 15, 0
  473.  PRINT "monster with exact accuracy every time. The amount"
  474.  LOCATE 13, 15, 0
  475.  PRINT "of damage normally done is doubled."
  476.  GOSUB Key.Pressed
  477.  RETURN
  478.  
  479. Help.Screen4:
  480.  LOCATE 10, 15, 0
  481.  PRINT "The shield spell generates an invisible force field"
  482.  LOCATE 11, 15, 0
  483.  PRINT "between your player and the monster.  Your player's"
  484.  LOCATE 12, 15, 0
  485.  PRINT "total armor plus is increased  by one armor factor."
  486.  GOSUB Key.Pressed
  487.  RETURN
  488.  
  489. Help.Screen5:
  490.  LOCATE 10, 15, 0
  491.  PRINT "The strength spell doubles your player's strength"
  492.  LOCATE 11, 15, 0
  493.  PRINT "for the duration of one round."
  494.  GOSUB Key.Pressed
  495.  RETURN
  496.  
  497. Help.Screen6:
  498.  LOCATE 10, 15, 0
  499.  PRINT "The sleep spell binds the monster in a helpless"
  500.  LOCATE 11, 15, 0
  501.  PRINT "state for the duration of one round."
  502.  GOSUB Key.Pressed
  503.  RETURN
  504.  
  505. Help.Screen7:
  506.  LOCATE 10, 15, 0
  507.  PRINT "The locate spell  reveals nearby traps and pits."
  508.  LOCATE 11, 15, 0
  509.  PRINT "This spell works only for the immediate vicinity"
  510.  LOCATE 12, 15, 0
  511.  PRINT "and has no duration."
  512.  GOSUB Key.Pressed
  513.  RETURN
  514.  
  515. Help.Screen8:
  516.  LOCATE 10, 15, 0
  517.  PRINT "The pyrotechnics spell causes a bolt of fire to fly"
  518.  LOCATE 11, 15, 0
  519.  PRINT "from your player's hands. The amount of damage done"
  520.  LOCATE 12, 15, 0
  521.  PRINT "normally is doubled."
  522.  GOSUB Key.Pressed
  523.  RETURN
  524.  
  525. Help.Screen9:
  526.  LOCATE 10, 15, 0
  527.  PRINT "The firestorm spell actuates a small blast of flames"
  528.  LOCATE 11, 15, 0
  529.  PRINT "to engulf the monster. The amount of damage normally"
  530.  LOCATE 12, 15, 0
  531.  PRINT "done is doubled."
  532.  GOSUB Key.Pressed
  533.  RETURN
  534.  
  535. Help.Screen10:
  536.  LOCATE 10, 15, 0
  537.  PRINT "The transmute spell restructures the surrounding air"
  538.  LOCATE 11, 15, 0
  539.  PRINT "into gold. This gold can then be picked up."
  540.  GOSUB Key.Pressed
  541.  RETURN
  542.  
  543. Help.Screen11:
  544.  LOCATE 10, 15, 0
  545.  PRINT "The restoration spell restores HIT POINTS to your"
  546.  LOCATE 11, 15, 0
  547.  PRINT "player.  The  amount  restored is equal to double"
  548.  LOCATE 12, 15, 0
  549.  PRINT "your constitution."
  550.  GOSUB Key.Pressed
  551.  RETURN
  552.  
  553. Help.Screen12:
  554.  LOCATE 10, 15, 0
  555.  PRINT "The scare spell will repell a monster's attacks for"
  556.  LOCATE 11, 15, 0
  557.  PRINT "two rounds. The amount of hits repelled is equal to"
  558.  LOCATE 12, 15, 0
  559.  PRINT "your dexterity."
  560.  GOSUB Key.Pressed
  561.  RETURN
  562.  
  563. Help.Screen13:
  564.  LOCATE 10, 15, 0
  565.  PRINT "The fireball spell causes a fireball to fly from your"
  566.  LOCATE 11, 15, 0
  567.  PRINT "player's hands. The amount of damage normally done to"
  568.  LOCATE 12, 15, 0
  569.  PRINT "the monster is tripled."
  570.  GOSUB Key.Pressed
  571.  RETURN
  572.  
  573. Help.Screen14:
  574.  LOCATE 10, 15, 0
  575.  PRINT "The obscurement spell creates an opaque force field"
  576.  LOCATE 11, 15, 0
  577.  PRINT "between your player and the monster.  Your player's"
  578.  LOCATE 12, 15, 0
  579.  PRINT "total armor plus is increased by two armor factors."
  580.  GOSUB Key.Pressed
  581.  RETURN
  582.  
  583. Help.Screen15:
  584.  LOCATE 10, 15, 0
  585.  PRINT "The power shield spell doubles your player's strength"
  586.  LOCATE 11, 15, 0
  587.  PRINT "for the duration of two rounds."
  588.  GOSUB Key.Pressed
  589.  RETURN
  590.  
  591. Help.Screen16:
  592.  LOCATE 10, 15, 0
  593.  PRINT "The wall of will spell renders the monster helpless"
  594.  LOCATE 11, 15, 0
  595.  PRINT "for the duration of two rounds."
  596.  GOSUB Key.Pressed
  597.  RETURN
  598.  
  599. Help.Screen17:
  600.  LOCATE 10, 15, 0
  601.  PRINT "The light spell illuminates an extended area around"
  602.  LOCATE 11, 15, 0
  603.  PRINT "your player. This spell has no duration."
  604.  GOSUB Key.Pressed
  605.  RETURN
  606.  
  607. Help.Screen18:
  608.  LOCATE 10, 15, 0
  609.  PRINT "The levitate spell causes your player to float above"
  610.  LOCATE 11, 15, 0
  611.  PRINT "the dungeon walls uncontrollably for the duration of"
  612.  LOCATE 12, 15, 0
  613.  PRINT "two to five rounds."
  614.  GOSUB Key.Pressed
  615.  RETURN
  616.  
  617. Help.Screen19:
  618.  LOCATE 10, 15, 0
  619.  PRINT "The monster summon spell calls up one to four"
  620.  LOCATE 11, 15, 0
  621.  PRINT "monsters of the current monster level."
  622.  GOSUB Key.Pressed
  623.  RETURN
  624.  
  625. Help.Screen20:
  626.  LOCATE 10, 15, 0
  627.  PRINT "The finger of death spell instantly destroys the"
  628.  LOCATE 11, 15, 0
  629.  PRINT "monster.  The monster's treasure remains intact."
  630.  GOSUB Key.Pressed
  631.  RETURN
  632.  
  633. Help.Screen21:
  634.  LOCATE 10, 15, 0
  635.  PRINT "The regenerate spell restores hit points to your"
  636.  LOCATE 11, 15, 0
  637.  PRINT "player.  The amount  restored is equal to triple"
  638.  LOCATE 12, 15, 0
  639.  PRINT "your constitution."
  640.  GOSUB Key.Pressed
  641.  RETURN
  642.  
  643. Help.Screen22:
  644.  LOCATE 10, 15, 0
  645.  PRINT "The forget spell will  repell a monster's attacks for"
  646.  LOCATE 11, 15, 0
  647.  PRINT "three rounds. The amount of hits repelled is equal to"
  648.  LOCATE 12, 15, 0
  649.  PRINT "your dexterity."
  650.  GOSUB Key.Pressed
  651.  RETURN
  652.  
  653. Help.Screen23:
  654.  LOCATE 10, 15, 0
  655.  PRINT "The lightning bolt  spell causes bolts of electricity"
  656.  LOCATE 11, 15, 0
  657.  PRINT "to fly from your player's hands. The amount of damage"
  658.  LOCATE 12, 15, 0
  659.  PRINT "normally done to the  monster is multiplied  by four."
  660.  GOSUB Key.Pressed
  661.  RETURN
  662.  
  663. Help.Screen24:
  664.  LOCATE 10, 15, 0
  665.  PRINT "The phantasmal force spell creates a solid wall between"
  666.  LOCATE 11, 15, 0
  667.  PRINT "your player and the monster.  Your player's total armor"
  668.  LOCATE 12, 15, 0
  669.  PRINT "plus is increased by three armor factors."
  670.  GOSUB Key.Pressed
  671.  RETURN
  672.  
  673. Help.Screen25:
  674.  LOCATE 10, 15, 0
  675.  PRINT "The wall of force spell doubles your player's strength."
  676.  LOCATE 11, 15, 0
  677.  PRINT "This spell has a duration of three rounds."
  678.  GOSUB Key.Pressed
  679.  RETURN
  680.  
  681. Help.Screen26:
  682.  LOCATE 10, 15, 0
  683.  PRINT "The charm monster spell renders the monster helpless."
  684.  LOCATE 11, 15, 0
  685.  PRINT "This spell has a duration of three rounds."
  686.  GOSUB Key.Pressed
  687.  RETURN
  688.  
  689. Help.Screen27:
  690.  LOCATE 10, 15, 0
  691.  PRINT "The continual light spell illuminates an extended area"
  692.  LOCATE 11, 15, 0
  693.  PRINT "around your player.  This spell has a duration of four"
  694.  LOCATE 12, 15, 0
  695.  PRINT "rounds."
  696.  GOSUB Key.Pressed
  697.  RETURN
  698.  
  699. Help.Screen28:
  700.  LOCATE 10, 15, 0
  701.  PRINT "The passwall spell allows your player to travel"
  702.  LOCATE 11, 15, 0
  703.  PRINT "through the dungeon walls. This spell will stay"
  704.  LOCATE 12, 15, 0
  705.  PRINT "in effect while in a wall. It has a duration of"
  706.  LOCATE 13, 15, 0
  707.  PRINT "two to four rounds."
  708.  GOSUB Key.Pressed
  709.  RETURN
  710.  
  711. Help.Screen29:
  712.  LOCATE 10, 15, 0
  713.  PRINT "The demon summon spell calls up one to three demons"
  714.  LOCATE 11, 15, 0
  715.  PRINT "of level twenty to fifty. Demons have been found to"
  716.  LOCATE 12, 15, 0
  717.  PRINT "have vast amounts of treasure."
  718.  GOSUB Key.Pressed
  719.  RETURN
  720.  
  721. Help.Screen30:
  722.  LOCATE 10, 15, 0
  723.  PRINT "The doomkill spell  instantly demolishes all monsters"
  724.  LOCATE 11, 15, 0
  725.  PRINT "surrounding you. The monster's treasures will remain."
  726.  LOCATE 12, 15, 0
  727.  PRINT "This spell has no duration."
  728.  GOSUB Key.Pressed
  729.  RETURN
  730.  
  731. Help.Screen31:
  732.  LOCATE 10, 15, 0
  733.  PRINT "The resurrection spell restores hit points to your"
  734.  LOCATE 11, 15, 0
  735.  PRINT "player. The amount restored is equal to four times"
  736.  LOCATE 12, 15, 0
  737.  PRINT "your constitution."
  738.  GOSUB Key.Pressed
  739.  RETURN
  740.  
  741. Help.Screen32:
  742.  LOCATE 10, 15, 0
  743.  PRINT "The fear spell will repell a monster's attacks for"
  744.  LOCATE 11, 15, 0
  745.  PRINT "four rounds.  The amount of hits repelled is equal"
  746.  LOCATE 12, 15, 0
  747.  PRINT "to your dexterity."
  748.  GOSUB Key.Pressed
  749.  RETURN
  750.  
  751. Help.Screen33:
  752.  LOCATE 10, 15, 0
  753.  PRINT "The disintegrate spell causes energy to be drained"
  754.  LOCATE 11, 15, 0
  755.  PRINT "from the nearest attacking monster.  The amount of"
  756.  LOCATE 12, 15, 0
  757.  PRINT "damaged done normally is multiplied by five."
  758.  GOSUB Key.Pressed
  759.  RETURN
  760.  
  761. Help.Screen34:
  762.  LOCATE 10, 15, 0
  763.  PRINT "The blade barrier spell  creates a rotating  wall of"
  764.  LOCATE 11, 15, 0
  765.  PRINT "swords  between your  player and  the monster.  Your"
  766.  LOCATE 12, 15, 0
  767.  PRINT "player's total armor plus is increased by four armor"
  768.  LOCATE 13, 15, 0
  769.  PRINT "factors."
  770.  GOSUB Key.Pressed
  771.  RETURN
  772.  
  773. Help.Screen35:
  774.  LOCATE 10, 15, 0
  775.  PRINT "The enchanted weapon spell doubles your weapon plus."
  776.  LOCATE 11, 15, 0
  777.  PRINT "This spell has a duration of three rounds."
  778.  GOSUB Key.Pressed
  779.  RETURN
  780.  
  781. Help.Screen36:
  782.  LOCATE 10, 15, 0
  783.  PRINT "The hold monster spell renders the monster helpless."
  784.  LOCATE 11, 15, 0
  785.  PRINT "This spell lasts up to four rounds."
  786.  GOSUB Key.Pressed
  787.  RETURN
  788.  
  789. Help.Screen37:
  790.  LOCATE 10, 15, 0
  791.  PRINT "The teleport spell  causes your player to reappear in"
  792.  LOCATE 11, 15, 0
  793.  PRINT "another area of the dungeon level. Your player has no"
  794.  LOCATE 12, 15, 0
  795.  PRINT "control over teleportation."
  796.  GOSUB Key.Pressed
  797.  RETURN
  798.  
  799. Help.Screen38:
  800.  LOCATE 10, 15, 0
  801.  PRINT "The polymorph spell instantly devastates all monsters"
  802.  LOCATE 11, 15, 0
  803.  PRINT "within three squares of your player. This spell lasts"
  804.  LOCATE 12, 15, 0
  805.  PRINT "for one round."
  806.  GOSUB Key.Pressed
  807.  RETURN
  808.  
  809. Help.Screen39:
  810.  LOCATE 10, 15, 0
  811.  PRINT "The time stop spell  nullifies all monster's  attacks"
  812.  LOCATE 11, 15, 0
  813.  PRINT "around your player. This spell lasts for five rounds."
  814.  GOSUB Key.Pressed
  815.  RETURN
  816.  
  817. Help.Screen40:
  818.  LOCATE 10, 15, 0
  819.  PRINT "The genocide spell annihilates  all monsters within"
  820.  LOCATE 11, 15, 0
  821.  PRINT "three squares of your player. This spell's duration"
  822.  LOCATE 12, 15, 0
  823.  PRINT "lasts for three rounds."
  824.  GOSUB Key.Pressed
  825.  RETURN
  826.  
  827. Help.Screen41:
  828.  LOCATE 10, 15, 0
  829.  PRINT "The info key displays current monster hits and experience,"
  830.  LOCATE 11, 15, 0
  831.  PRINT "average, maximum, and minimum  statistics for  monsters at"
  832.  LOCATE 12, 15, 0
  833.  PRINT "the current dungeon level, attack formulas, and your total"
  834.  LOCATE 13, 15, 0
  835.  PRINT "armor and weapon plus."
  836.  GOSUB Key.Pressed
  837.  RETURN
  838.  
  839. Help.Screen42:
  840.  LOCATE 10, 15, 0
  841.  PRINT "The fight key causes your player to attack a monster."
  842.  LOCATE 11, 15, 0
  843.  PRINT "While fighting monsters,  many factors are considered"
  844.  LOCATE 12, 15, 0
  845.  PRINT "such as your armor plus, your weapon plus,  and other"
  846.  LOCATE 13, 15, 0
  847.  PRINT "conditions created by casted spells."
  848.  GOSUB Key.Pressed
  849.  RETURN
  850.  
  851. Help.Screen43:
  852.  LOCATE 10, 15, 0
  853.  PRINT "This key moves your player to the south one dungeon"
  854.  LOCATE 11, 15, 0
  855.  PRINT "square. Occupied squares next to your player create"
  856.  LOCATE 12, 15, 0
  857.  PRINT "conditions such as opening chests, retreiving gold,"
  858.  LOCATE 13, 15, 0
  859.  PRINT "and engaging monsters in combat."
  860.  GOSUB Key.Pressed
  861.  RETURN
  862.  
  863. Help.Screen44:
  864.  LOCATE 10, 15, 0
  865.  PRINT "The cast key causes your player to cast a spell chant."
  866.  LOCATE 11, 15, 0
  867.  PRINT "In order to cast spells chants, they must be collected"
  868.  LOCATE 12, 15, 0
  869.  PRINT "and memorized during the Adventure."
  870.  GOSUB Key.Pressed
  871.  RETURN
  872.  
  873. Help.Screen45:
  874.  LOCATE 10, 15, 0
  875.  PRINT "This key moves your player to the west one dungeon"
  876.  LOCATE 11, 15, 0
  877.  PRINT "square. Moving on a square creates certain unknown"
  878.  LOCATE 12, 15, 0
  879.  PRINT "conditions such as triggering a trap, falling in a"
  880.  LOCATE 13, 15, 0
  881.  PRINT "pit, and discovering scrolls."
  882.  GOSUB Key.Pressed
  883.  RETURN
  884.  
  885. Help.Screen46:
  886.  LOCATE 10, 15, 0
  887.  PRINT "The enter key on the numeric keypad is used as an"
  888.  LOCATE 11, 15, 0
  889.  PRINT "'acceptance' key for various prompts such opening"
  890.  LOCATE 12, 15, 0
  891.  PRINT "and storing inventory from chests, and picking up"
  892.  LOCATE 13, 15, 0
  893.  PRINT "treasure."
  894.  GOSUB Key.Pressed
  895.  RETURN
  896.  
  897. Help.Screen47:
  898.  LOCATE 10, 15, 0
  899.  PRINT "This key moves your player to the east one dungeon"
  900.  LOCATE 11, 15, 0
  901.  PRINT "square. Your player can move to other parts of the"
  902.  LOCATE 12, 15, 0
  903.  PRINT "the dungeon level with certain spells. Among these"
  904.  LOCATE 13, 15, 0
  905.  PRINT "spells are levitate, passwall, teleport."
  906.  GOSUB Key.Pressed
  907.  RETURN
  908.  
  909. Help.Screen48:
  910.  LOCATE 10, 15, 0
  911.  PRINT "The evade key causes your player to dodge the"
  912.  LOCATE 11, 15, 0
  913.  PRINT "current monster (if your player is in combat)"
  914.  LOCATE 12, 15, 0
  915.  PRINT "and move to an adjacent square."
  916.  GOSUB Key.Pressed
  917.  RETURN
  918.  
  919. Help.Screen49:
  920.  LOCATE 10, 15, 0
  921.  PRINT "This key moves your player to the north one dungeon"
  922.  LOCATE 11, 15, 0
  923.  PRINT "square.  To change dungeon levels, move your player"
  924.  LOCATE 12, 15, 0
  925.  PRINT "through the upper and lower exits."
  926.  GOSUB Key.Pressed
  927.  RETURN
  928.  
  929. Help.Screen50:
  930.  LOCATE 10, 15, 0
  931.  PRINT "The ignore key responds as a 'refuse' key for some"
  932.  LOCATE 11, 15, 0
  933.  PRINT "prompts. These prompts include opening and storing"
  934.  LOCATE 12, 15, 0
  935.  PRINT "inventory from chests and picking up treasure."
  936.  GOSUB Key.Pressed
  937.  RETURN
  938.  
  939. Help.Screen51:
  940.  LOCATE 8, 16, 0
  941.  PRINT "The stats key displays your player character's"
  942.  LOCATE 9, 16, 0
  943.  PRINT "attributes, armor pluses, and weapon plus. The"
  944.  LOCATE 10, 16, 0
  945.  PRINT "stats and their  abbreviations are as follows:"
  946.  LOCATE 12, 11, 0
  947.  PRINT "STR - Strength       INT - Intelligence   WIS - Wisdom"
  948.  LOCATE 13, 11, 0
  949.  PRINT "CON - Constitution   DEX - Dexterity      CHA - Charisma"
  950.  LOCATE 14, 11, 0
  951.  PRINT "WE  - Weapon         AR  - Armor          SH  - Shield"
  952.  LOCATE 15, 11, 0
  953.  PRINT "CL  - Cloak          HE  - Helmet         BO  - Boots"
  954.  GOSUB Key.Pressed
  955.  RETURN
  956.  
  957. Help.Screen52:
  958.  LOCATE 10, 15, 0
  959.  PRINT "The chants key displays all the chants your player has"
  960.  LOCATE 11, 15, 0
  961.  PRINT "remembered. Your player can read spell chants found on"
  962.  LOCATE 12, 15, 0
  963.  PRINT "scrolls hidden in the dungeon."
  964.  GOSUB Key.Pressed
  965.  RETURN
  966.  
  967. Help.Screen53:
  968.  LOCATE 10, 15, 0
  969.  PRINT "The X is your player.  Move your player with the"
  970.  LOCATE 11, 15, 0
  971.  PRINT "numeric keypad cursor keys. You will be prompted"
  972.  LOCATE 12, 15, 0
  973.  PRINT "for  an action when you move your player next to"
  974.  LOCATE 13, 15, 0
  975.  PRINT "a symbol. For example, you move your player next"
  976.  LOCATE 14, 15, 0
  977.  PRINT "to a scroll and are asked to take or  ignore it."
  978.  GOSUB Key.Pressed
  979.  RETURN
  980.  
  981. Help.Screen54:
  982.  LOCATE 10, 15, 0
  983.  PRINT "The # symbol is a monster. Monsters usually carry some"
  984.  LOCATE 11, 15, 0
  985.  PRINT "treasure, such as gold, gems, or chests. Monsters have"
  986.  LOCATE 12, 15, 0
  987.  PRINT "statistics like your player, including experience, hit"
  988.  LOCATE 13, 15, 0
  989.  PRINT "points, and strength."
  990.  GOSUB Key.Pressed
  991.  RETURN
  992.  
  993. Help.Screen55:
  994.  LOCATE 10, 15, 0
  995.  PRINT "The ~ symbol is a scroll. Your player can read and"
  996.  LOCATE 11, 15, 0
  997.  PRINT "memorize scrolls for later use. In order to cast a"
  998.  LOCATE 12, 15, 0
  999.  PRINT "spell chant learned from a scroll use the '-' key."
  1000.  GOSUB Key.Pressed
  1001.  RETURN
  1002.  
  1003. Help.Screen56:
  1004.  LOCATE 10, 15, 0
  1005.  PRINT "The $ symbol is gold.  Taking gold increases your hoard."
  1006.  LOCATE 11, 15, 0
  1007.  PRINT "Gold is needed for reaching the next level of expertise."
  1008.  GOSUB Key.Pressed
  1009.  RETURN
  1010.  
  1011. Help.Screen57:
  1012.  LOCATE 10, 15, 0
  1013.  PRINT "The " + CHR$(254) + " symbol is a chest. Chests can be opened, and usually"
  1014.  LOCATE 11, 15, 0
  1015.  PRINT "contain  armor  and  weapons.  It is said there was once a"
  1016.  LOCATE 12, 15, 0
  1017.  PRINT "Globe of extreme power locked in a chest. This Globe could"
  1018.  LOCATE 13, 15, 0
  1019.  PRINT "unleash the immense power of the  past and  allow the user"
  1020.  LOCATE 14, 15, 0
  1021.  PRINT "to control whatever he desired."
  1022.  GOSUB Key.Pressed
  1023.  RETURN
  1024.  
  1025. Help.Screen58:
  1026.  LOCATE 10, 15, 0
  1027.  PRINT "The ^ symbol represents a trap. Traps are not visible"
  1028.  LOCATE 11, 15, 0
  1029.  PRINT "until  triggered or Located (with the locate spell)."
  1030.  LOCATE 12, 15, 0
  1031.  PRINT "Traps in  higher dungeon levels  cause more damage to"
  1032.  LOCATE 13, 15, 0
  1033.  PRINT "your player. Traps block dungeon passages."
  1034.  GOSUB Key.Pressed
  1035.  RETURN
  1036.  
  1037. Help.Screen59:
  1038.  LOCATE 10, 15, 0
  1039.  PRINT "The o symbol is a pit. Pits become visible when your"
  1040.  LOCATE 11, 15, 0
  1041.  PRINT "player has fallen in.  Pits in higher dungeon levels"
  1042.  LOCATE 12, 15, 0
  1043.  PRINT "cause more damage to your player.  Some spells allow"
  1044.  LOCATE 13, 15, 0
  1045.  PRINT "your player  to move around pits,  such as levitate,"
  1046.  LOCATE 14, 15, 0
  1047.  PRINT "passwall, and teleport."
  1048.  GOSUB Key.Pressed
  1049.  RETURN
  1050.  
  1051. Help.Screen60:
  1052.  LOCATE 10, 15, 0
  1053.  PRINT "The * symbol are gems. When you land on gems then your"
  1054.  LOCATE 11, 15, 0
  1055.  PRINT "player picks  them up.  They are  converted to gold in"
  1056.  LOCATE 12, 15, 0
  1057.  PRINT "your  inventory.  Gold is  needed  to increase  to the"
  1058.  LOCATE 13, 15, 0
  1059.  PRINT "next level when you have enough experience."
  1060.  GOSUB Key.Pressed
  1061.  RETURN
  1062.  
  1063. Help.Screen61:
  1064.  LOCATE 10, 15, 0
  1065.  PRINT "The ! symbol is a teleporter. You can either land on"
  1066.  LOCATE 11, 15, 0
  1067.  PRINT "a teleporter or ignore it. Entering a teleporter can"
  1068.  LOCATE 12, 15, 0
  1069.  PRINT "move  your player to  another dungeon  level or some"
  1070.  LOCATE 13, 15, 0
  1071.  PRINT "place  in the  current level.  Teleporters disappear"
  1072.  LOCATE 14, 15, 0
  1073.  PRINT "after they have been entered."
  1074.  GOSUB Key.Pressed
  1075.  RETURN
  1076.  
  1077. Help.Screen62:
  1078.  LOCATE 10, 15, 0
  1079.  PRINT "The ? symbol is a temple. You can either pray at the"
  1080.  LOCATE 11, 15, 0
  1081.  PRINT "temple,  pillage it or ignore it.  Temples disappear"
  1082.  LOCATE 12, 15, 0
  1083.  PRINT "after they  are acted on.  If you pillage it you can"
  1084.  LOCATE 13, 15, 0
  1085.  PRINT "be hit for damage or rewarded with treasure.  If you"
  1086.  LOCATE 14, 15, 0
  1087.  PRINT "pray either  nothing may happen or gold will appear."
  1088.  GOSUB Key.Pressed
  1089.  RETURN
  1090.  
  1091. Help.Screen63:
  1092.  LOCATE 10, 15, 0
  1093.  PRINT "The help command displays the help screens.  You can"
  1094.  LOCATE 11, 15, 0
  1095.  PRINT "get  help for  every spell by pressing the  function"
  1096.  LOCATE 12, 15, 0
  1097.  PRINT "key F1 through F10 with shift key,  for every symbol"
  1098.  LOCATE 13, 15, 0
  1099.  PRINT "in  the dungeon,  or meanings  for the cursor keypad"
  1100.  LOCATE 14, 15, 0
  1101.  PRINT "functions. Exit help by pressing the spacebar."
  1102.  GOSUB Key.Pressed
  1103.  RETURN
  1104.  
  1105. Help.Screen64:
  1106.  LOCATE 10, 15, 0
  1107.  PRINT "The > symbol is a stair leading up. When you enter"
  1108.  LOCATE 11, 15, 0
  1109.  PRINT "a stair up  from level one  your player  exits the"
  1110.  LOCATE 12, 15, 0
  1111.  PRINT "dungeon.  Stairs up from  lower levels lead to the"
  1112.  LOCATE 13, 15, 0
  1113.  PRINT "next higher dungeon you were in."
  1114.  GOSUB Key.Pressed
  1115.  RETURN
  1116.  
  1117. Help.Screen65:
  1118.  LOCATE 10, 15, 0
  1119.  PRINT "The < symbol is a stair leading down. There is no"
  1120.  LOCATE 11, 15, 0
  1121.  PRINT "limit to the dungeon.  Lower levels have more and"
  1122.  LOCATE 12, 15, 0
  1123.  PRINT "more difficult monsters with more treasure."
  1124.  GOSUB Key.Pressed
  1125.  RETURN
  1126.  
  1127. Help.Screen66:
  1128.  LOCATE 10, 15, 0
  1129.  PRINT "The trade command allows  your player to trade gold"
  1130.  LOCATE 11, 15, 0
  1131.  PRINT "for  statistics.  Your  remaining gold is displayed"
  1132.  LOCATE 12, 15, 0
  1133.  PRINT "with the average cost per statistic. You can select"
  1134.  LOCATE 13, 15, 0
  1135.  PRINT "the statistic to purchase with the number keys 1-6."
  1136.  GOSUB Key.Pressed
  1137.  RETURN
  1138.  
  1139. Help.Screen67:
  1140.  LOCATE 10, 15, 0
  1141.  PRINT "The level command  lets you change the dungeon level"
  1142.  LOCATE 11, 15, 0
  1143.  PRINT "to another level.  Your number of  stored  levels is"
  1144.  LOCATE 12, 15, 0
  1145.  PRINT "shown. You can select any level to continue play in."
  1146.  GOSUB Key.Pressed
  1147.  RETURN
  1148.  
  1149. Help.Screen68:
  1150.  LOCATE 10, 15, 0
  1151.  PRINT "The use command uses a charge  from a wand,  potion,"
  1152.  LOCATE 11, 15, 0
  1153.  PRINT "staff, or ring.  You must first collect the items in"
  1154.  LOCATE 12, 15, 0
  1155.  PRINT "the dungeon. You must enter the alphabetic number of"
  1156.  LOCATE 13, 15, 0
  1157.  PRINT "the magic item in your inventory to use them."
  1158.  GOSUB Key.Pressed
  1159.  RETURN
  1160.  
  1161. Help.Screen69:
  1162.  LOCATE 10, 15, 0
  1163.  PRINT "The inventory command displays the wands, potions, staffs"
  1164.  LOCATE 11, 15, 0
  1165.  PRINT "and rings you have collected.  There are ten of each item"
  1166.  LOCATE 12, 15, 0
  1167.  PRINT "in the dungeon.  They are used with the Use command or by"
  1168.  LOCATE 13, 15, 0
  1169.  PRINT "the extended Alt- and Control- letter key commands."
  1170.  GOSUB Key.Pressed
  1171.  RETURN
  1172.  
  1173. Help.Screen70:
  1174.  LOCATE 10, 15, 0
  1175.  PRINT "The | symbol is a wand.  There are ten different wands in"
  1176.  LOCATE 11, 15, 0
  1177.  PRINT "the dungeon. When you use a wand with the Use command the"
  1178.  LOCATE 12, 15, 0
  1179.  PRINT "charge from  the  wand  will cast a  spell onto  monsters"
  1180.  LOCATE 13, 15, 0
  1181.  PRINT "nearby.  When all the charges are used the wand vanishes."
  1182.  GOSUB Key.Pressed
  1183.  RETURN
  1184.  
  1185. Help.Screen71:
  1186.  LOCATE 10, 15, 0
  1187.  PRINT "The @ symbol is a potion. There are ten different potions"
  1188.  LOCATE 11, 15, 0
  1189.  PRINT "in the dungeon. When you use potions with the Use command"
  1190.  LOCATE 12, 15, 0
  1191.  PRINT "the  charge from  the potion  will  cast a healing spell."
  1192.  LOCATE 13, 15, 0
  1193.  PRINT "When the potion is used up it vanishes."
  1194.  GOSUB Key.Pressed
  1195.  RETURN
  1196.  
  1197. Help.Screen72:
  1198.  LOCATE 10, 25, 0
  1199.  PRINT "The Alt-A to Alt-J are the wand keys:"
  1200.  LOCATE 12, 20, 0
  1201.  PRINT "Alt-A = magic missile     Alt-F = lightning bolt"
  1202.  LOCATE 13, 20, 0
  1203.  PRINT "Alt-B = pyrotechnics      Alt-G = doomkill"
  1204.  LOCATE 14, 20, 0
  1205.  PRINT "Alt-C = firestorm         Alt-H = disintegrate"
  1206.  LOCATE 15, 20, 0
  1207.  PRINT "Alt-D = fireball          Alt-I = blade barrier"
  1208.  LOCATE 16, 20, 0
  1209.  PRINT "Alt-E = finger of death   Alt-J = genocide"
  1210.  GOSUB Key.Pressed
  1211.  RETURN
  1212.  
  1213. Help.Screen73:
  1214.  LOCATE 10, 25, 0
  1215.  PRINT "The Alt-Q to Alt-Z are the potion keys:"
  1216.  LOCATE 12, 20, 0
  1217.  PRINT "Alt-Q = heal          Alt-V = power shield"
  1218.  LOCATE 13, 20, 0
  1219.  PRINT "Alt-R = protection    Alt-W = wall of will"
  1220.  LOCATE 14, 20, 0
  1221.  PRINT "Alt-S = shield        Alt-X = regeneration"
  1222.  LOCATE 15, 20, 0
  1223.  PRINT "Alt-T = strength      Alt-Y = phantasmal force"
  1224.  LOCATE 16, 20, 0
  1225.  PRINT "Alt-U = restoration   Alt-Z = resurrection"
  1226.  GOSUB Key.Pressed
  1227.  RETURN
  1228.  
  1229. Help.Screen74:
  1230.  LOCATE 10, 15, 0
  1231.  PRINT "The % symbol is a staff.  There's ten different staffs in"
  1232.  LOCATE 11, 15, 0
  1233.  PRINT "the dungeon. When you use staffs with the Use command the"
  1234.  LOCATE 12, 15, 0
  1235.  PRINT "charge from  the staff will  cast a spell.  When  all the"
  1236.  LOCATE 13, 15, 0
  1237.  PRINT "charges are used the staff vanishes."
  1238.  GOSUB Key.Pressed
  1239.  RETURN
  1240.  
  1241. Help.Screen75:
  1242.  LOCATE 10, 15, 0
  1243.  PRINT "The & symbol are some coins. The number of coins you will"
  1244.  LOCATE 11, 15, 0
  1245.  PRINT "find  in the dungeon  are according  to the dungeon level"
  1246.  LOCATE 12, 15, 0
  1247.  PRINT "you are at. Each coin is worth 100 gold peices."
  1248.  GOSUB Key.Pressed
  1249.  RETURN
  1250.  
  1251. Help.Screen76:
  1252.  LOCATE 10, 15, 0
  1253.  PRINT "The " + CHR$(34) + " symbol is a ring.  There are ten different rings in"
  1254.  LOCATE 11, 15, 0
  1255.  PRINT "the dungeon. When you use a ring with the Use command the"
  1256.  LOCATE 12, 15, 0
  1257.  PRINT "charge from  the  ring will  cast a spell.  When  all the"
  1258.  LOCATE 13, 15, 0
  1259.  PRINT "charges are used the ring vanishes."
  1260.  GOSUB Key.Pressed
  1261.  RETURN
  1262.  
  1263. Help.Screen77:
  1264.  LOCATE 10, 20, 0
  1265.  PRINT "The Control-A to Control-J are the staff keys:"
  1266.  LOCATE 12, 15, 0
  1267.  PRINT "Control-A = locate            Control-F = passwall"
  1268.  LOCATE 13, 15, 0
  1269.  PRINT "Control-B = transmute         Control-G = fear"
  1270.  LOCATE 14, 15, 0
  1271.  PRINT "Control-C = light             Control-H = enchanted weapon"
  1272.  LOCATE 15, 15, 0
  1273.  PRINT "Control-D = levitate          Control-I = teleport"
  1274.  LOCATE 16, 15, 0
  1275.  PRINT "Control-E = continual light   Control-J = time stop"
  1276.  GOSUB Key.Pressed
  1277.  RETURN
  1278.  
  1279. Help.Screen78:
  1280.  LOCATE 10, 20, 0
  1281.  PRINT "The Control-Q to Control-Z are the ring keys:"
  1282.  LOCATE 12, 15, 0
  1283.  PRINT "Control-Q = sleep             Control-V = wall of force"
  1284.  LOCATE 13, 15, 0
  1285.  PRINT "Control-R = scare             Control-W = charm monster"
  1286.  LOCATE 14, 15, 0
  1287.  PRINT "Control-S = obscurement       Control-X = demon summon"
  1288.  LOCATE 15, 15, 0
  1289.  PRINT "Control-T = monster summon    Control-Y = hold monster"
  1290.  LOCATE 16, 15, 0
  1291.  PRINT "Control-U = forget            Control-Z = polymorph"
  1292.  GOSUB Key.Pressed
  1293.  RETURN
  1294.  
  1295. Help.Screen79:
  1296.  LOCATE 10, 15, 0
  1297.  PRINT "The Alt-0 to Alt-9 are the Power Globe keys:"
  1298.  LOCATE 12, 15, 0
  1299.  PRINT "Alt-0 = clear level       Alt-5 = use all wands"
  1300.  LOCATE 13, 15, 0
  1301.  PRINT "Alt-1 = replenish level   Alt-6 = use all potions"
  1302.  LOCATE 14, 15, 0
  1303.  PRINT "Alt-2 = down 10 levels    Alt-7 = use all staffs"
  1304.  LOCATE 15, 15, 0
  1305.  PRINT "Alt-3 = up 10 levels      Alt-8 = use all rings"
  1306.  LOCATE 16, 15, 0
  1307.  PRINT "Alt-4 = collect all       Alt-9 = trade all"
  1308.  GOSUB Key.Pressed
  1309.  RETURN
  1310.  
  1311. Help.Screen80:
  1312.  LOCATE 10, 15, 0
  1313.  PRINT "The  buy  key allows your  player to buy inventory."
  1314.  LOCATE 11, 15, 0
  1315.  PRINT "Your  remaining gold  is displayed  along  with the"
  1316.  LOCATE 12, 15, 0
  1317.  PRINT "average cost per inventory item. You can select the"
  1318.  LOCATE 13, 15, 0
  1319.  PRINT "item to purchase with the number keys 1-6."
  1320.  GOSUB Key.Pressed
  1321.  RETURN
  1322.  
  1323. Help.Screen81:
  1324.  LOCATE 10, 15, 0
  1325.  PRINT "The user list key displays the levels and statistics"
  1326.  LOCATE 11, 15, 0
  1327.  PRINT "of all the players in the dungeon game.  The utility"
  1328.  LOCATE 12, 15, 0
  1329.  PRINT "program is shelled from the main program."
  1330.  GOSUB Key.Pressed
  1331.  RETURN
  1332.  
  1333. ' routine to display main help screen
  1334. Display.Help.Screen:
  1335.  COLOR 14, 1: CLS
  1336.  COLOR 10
  1337.  LOCATE 1, 1, 0
  1338.  PRINT "While playing,  type 0 for help,  or Q for quit.  The 24th status line displays"
  1339.  LOCATE 2, 1, 0
  1340.  PRINT "the following information:  Dlvl  is the  dungeon level,  Lvl is your  player's"
  1341.  LOCATE 3, 1, 0
  1342.  PRINT "level,  Hp is your player's hit points,  Exp is your player's experience,  Gold"
  1343.  LOCATE 4, 1, 0
  1344.  PRINT "is  the amount  of  gold  hoarded,  and  Nm the  number  of monsters remaining."
  1345.  COLOR 11
  1346.  LOCATE 5, 1, 0
  1347.  PRINT "Function Keys";
  1348.  COLOR 14
  1349.  LOCATE 6, 1, 0
  1350.  PRINT CHR$(201); STRING$(12, CHR$(205)); CHR$(187);
  1351.  LOCATE 7, 1, 0
  1352.  PRINT CHR$(186);
  1353.  COLOR 12
  1354.  PRINT "FN Key ";
  1355.  COLOR 10
  1356.  PRINT "Spell";
  1357.  COLOR 14
  1358.  PRINT CHR$(186);
  1359.  LOCATE 8, 1, 0
  1360.  PRINT CHR$(186);
  1361.  COLOR 12
  1362.  PRINT "Shift  ";
  1363.  COLOR 10
  1364.  PRINT "Level";
  1365.  COLOR 14
  1366.  PRINT CHR$(186);
  1367.  LOCATE 9, 1, 0
  1368.  PRINT CHR$(199); STRING$(12, CHR$(196)); CHR$(182);
  1369.  LOCATE 10, 1, 0
  1370.  PRINT CHR$(186);
  1371.  COLOR 12
  1372.  PRINT "Normal ";
  1373.  COLOR 11
  1374.  PRINT "> ";
  1375.  COLOR 10
  1376.  PRINT "F1 ";
  1377.  COLOR 14
  1378.  PRINT CHR$(186);
  1379.  LOCATE 11, 1, 0
  1380.  PRINT CHR$(186);
  1381.  COLOR 12
  1382.  PRINT "Ctrl-  ";
  1383.  COLOR 11
  1384.  PRINT "> ";
  1385.  COLOR 10
  1386.  PRINT "F2 ";
  1387.  COLOR 14
  1388.  PRINT CHR$(186);
  1389.  LOCATE 12, 1, 0
  1390.  PRINT CHR$(186);
  1391.  COLOR 12
  1392.  PRINT "Shift- ";
  1393.  COLOR 11
  1394.  PRINT "> ";
  1395.  COLOR 10
  1396.  PRINT "F3 ";
  1397.  COLOR 14
  1398.  PRINT CHR$(186);
  1399.  LOCATE 13, 1, 0
  1400.  PRINT CHR$(186);
  1401.  COLOR 12
  1402.  PRINT "Alt-   ";
  1403.  COLOR 11
  1404.  PRINT "> ";
  1405.  COLOR 10
  1406.  PRINT "F4 ";
  1407.  COLOR 14
  1408.  PRINT CHR$(186);
  1409.  COLOR 14
  1410.  LOCATE 14, 1, 0
  1411.  PRINT CHR$(199); STRING$(12, CHR$(196)); CHR$(182);
  1412.  LOCATE 15, 1, 0
  1413.  PRINT CHR$(186);
  1414.  COLOR 12
  1415.  PRINT "Key   ";
  1416.  COLOR 10
  1417.  PRINT "Spell ";
  1418.  COLOR 14
  1419.  PRINT CHR$(186);
  1420.  LOCATE 16, 1, 0
  1421.  PRINT CHR$(186);
  1422.  COLOR 12
  1423.  PRINT "Shift ";
  1424.  COLOR 10
  1425.  PRINT "Number";
  1426.  COLOR 14
  1427.  PRINT CHR$(186);
  1428.  LOCATE 17, 1, 0
  1429.  PRINT CHR$(199); STRING$(12, CHR$(196)); CHR$(182);
  1430.  LOCATE 18, 1, 0
  1431.  PRINT CHR$(186);
  1432.  COLOR 12
  1433.  PRINT "Alt-  ";
  1434.  COLOR 10
  1435.  PRINT "A ";
  1436.  COLOR 11
  1437.  PRINT "-";
  1438.  COLOR 10
  1439.  PRINT " J ";
  1440.  COLOR 14
  1441.  PRINT CHR$(186);
  1442.  LOCATE 19, 1, 0
  1443.  PRINT CHR$(186);
  1444.  COLOR 12
  1445.  PRINT "Alt-  ";
  1446.  COLOR 10
  1447.  PRINT "Q ";
  1448.  COLOR 11
  1449.  PRINT "-";
  1450.  COLOR 10
  1451.  PRINT " Z ";
  1452.  COLOR 14
  1453.  PRINT CHR$(186);
  1454.  LOCATE 20, 1, 0
  1455.  PRINT CHR$(186);
  1456.  COLOR 12
  1457.  PRINT "Ctrl- ";
  1458.  COLOR 10
  1459.  PRINT "A ";
  1460.  COLOR 11
  1461.  PRINT "-";
  1462.  COLOR 10
  1463.  PRINT " J ";
  1464.  COLOR 14
  1465.  PRINT CHR$(186);
  1466.  LOCATE 21, 1, 0
  1467.  PRINT CHR$(186);
  1468.  COLOR 12
  1469.  PRINT "Ctrl- ";
  1470.  COLOR 10
  1471.  PRINT "Q ";
  1472.  COLOR 11
  1473.  PRINT "-";
  1474.  COLOR 10
  1475.  PRINT " Z ";
  1476.  COLOR 14
  1477.  PRINT CHR$(186);
  1478.  LOCATE 22, 1, 0
  1479.  PRINT CHR$(199); STRING$(12, CHR$(196)); CHR$(182);
  1480.  LOCATE 23, 1, 0
  1481.  PRINT CHR$(186);
  1482.  COLOR 12
  1483.  PRINT "Alt-  ";
  1484.  COLOR 10
  1485.  PRINT "0 ";
  1486.  COLOR 11
  1487.  PRINT "-";
  1488.  COLOR 10
  1489.  PRINT " 9 ";
  1490.  COLOR 14
  1491.  PRINT CHR$(186);
  1492.  LOCATE 24, 1, 0
  1493.  PRINT CHR$(200); STRING$(12, CHR$(205)); CHR$(188);
  1494.  LOCATE 5, 16, 0
  1495.  COLOR 11
  1496.  PRINT "Numeric Keypad";
  1497.  LOCATE 6, 16, 0
  1498.  COLOR 14
  1499.  PRINT CHR$(201); STRING$(47, CHR$(205)); CHR$(187);
  1500.  LOCATE 7, 16, 0
  1501.  PRINT CHR$(186);
  1502.  COLOR 12
  1503.  PRINT "7";
  1504.  COLOR 11
  1505.  PRINT " : ";
  1506.  COLOR 10
  1507.  PRINT "Evade  ";
  1508.  COLOR 12
  1509.  PRINT "8";
  1510.  COLOR 11
  1511.  PRINT " : ";
  1512.  COLOR 10
  1513.  PRINT "North  ";
  1514.  COLOR 12
  1515.  PRINT "9";
  1516.  COLOR 11
  1517.  PRINT " : ";
  1518.  COLOR 10
  1519.  PRINT "Ignore     ";
  1520.  COLOR 12
  1521.  PRINT "'";
  1522.  COLOR 11
  1523.  PRINT " : ";
  1524.  COLOR 10
  1525.  PRINT "Use   ";
  1526.  COLOR 14
  1527.  PRINT CHR$(186);
  1528.  LOCATE 8, 16, 0
  1529.  PRINT CHR$(186);
  1530.  COLOR 12
  1531.  PRINT "4";
  1532.  COLOR 11
  1533.  PRINT " : ";
  1534.  COLOR 10
  1535.  PRINT "West   ";
  1536.  COLOR 12
  1537.  PRINT "5";
  1538.  COLOR 11
  1539.  PRINT " : ";
  1540.  COLOR 10
  1541.  PRINT "<cr>   ";
  1542.  COLOR 12
  1543.  PRINT "6";
  1544.  COLOR 11
  1545.  PRINT " : ";
  1546.  COLOR 10
  1547.  PRINT "East       ";
  1548.  COLOR 12
  1549.  PRINT "-";
  1550.  COLOR 11
  1551.  PRINT " : ";
  1552.  COLOR 10
  1553.  PRINT "Chants";
  1554.  COLOR 14
  1555.  PRINT CHR$(186);
  1556.  LOCATE 9, 16, 0
  1557.  PRINT CHR$(186);
  1558.  COLOR 12
  1559.  PRINT "1";
  1560.  COLOR 11
  1561.  PRINT " : ";
  1562.  COLOR 10
  1563.  PRINT "Fight  ";
  1564.  COLOR 12
  1565.  PRINT "2";
  1566.  COLOR 11
  1567.  PRINT " : ";
  1568.  COLOR 10
  1569.  PRINT "South  ";
  1570.  COLOR 12
  1571.  PRINT "3";
  1572.  COLOR 11
  1573.  PRINT " : ";
  1574.  COLOR 10
  1575.  PRINT "Cast       ";
  1576.  COLOR 12
  1577.  PRINT "+";
  1578.  COLOR 11
  1579.  PRINT " : ";
  1580.  COLOR 10
  1581.  PRINT "Info  ";
  1582.  COLOR 14
  1583.  PRINT CHR$(186);
  1584.  LOCATE 10, 16, 0
  1585.  PRINT CHR$(186);
  1586.  COLOR 12
  1587.  PRINT "0";
  1588.  COLOR 11
  1589.  PRINT " : ";
  1590.  COLOR 10
  1591.  PRINT "Help   ";
  1592.  COLOR 12
  1593.  PRINT ".";
  1594.  COLOR 11
  1595.  PRINT " : ";
  1596.  COLOR 10
  1597.  PRINT "Stats  ";
  1598.  COLOR 12
  1599.  PRINT "/";
  1600.  COLOR 11
  1601.  PRINT " : ";
  1602.  COLOR 10
  1603.  PRINT "Inven      ";
  1604.  COLOR 12
  1605.  PRINT ";";
  1606.  COLOR 11
  1607.  PRINT " : ";
  1608.  COLOR 10
  1609.  PRINT "Buy   ";
  1610.  COLOR 14
  1611.  PRINT CHR$(186);
  1612.  LOCATE 11, 16, 0
  1613.  PRINT CHR$(186);
  1614.  COLOR 12
  1615.  PRINT "\";
  1616.  COLOR 11
  1617.  PRINT " : ";
  1618.  COLOR 10
  1619.  PRINT "Trade  ";
  1620.  COLOR 12
  1621.  PRINT "=";
  1622.  COLOR 11
  1623.  PRINT " : ";
  1624.  COLOR 10
  1625.  PRINT "Level  ";
  1626.  COLOR 12
  1627.  PRINT "`";
  1628.  COLOR 11
  1629.  PRINT " : ";
  1630.  COLOR 10
  1631.  PRINT "User list"; SPACE$(12);
  1632.  COLOR 14
  1633.  PRINT CHR$(186);
  1634.  LOCATE 12, 16, 0
  1635.  PRINT CHR$(200); STRING$(47, CHR$(205)); CHR$(188);
  1636.  LOCATE 14, 16, 0
  1637.  COLOR 11
  1638.  PRINT "Cursor Keypad";
  1639.  LOCATE 15, 16, 0
  1640.  COLOR 14
  1641.  PRINT CHR$(201); STRING$(47, CHR$(205)); CHR$(187);
  1642.  LOCATE 16, 16, 0
  1643.  PRINT CHR$(186);
  1644.  COLOR 12
  1645.  PRINT "Home";
  1646.  COLOR 11
  1647.  PRINT ":"; : COLOR 10
  1648.  PRINT "Evade ";
  1649.  COLOR 12
  1650.  PRINT "Up ";
  1651.  COLOR 11
  1652.  PRINT ":";
  1653.  COLOR 10
  1654.  PRINT "North ";
  1655.  COLOR 12
  1656.  PRINT "PgUp";
  1657.  COLOR 11
  1658.  PRINT ":";
  1659.  COLOR 10
  1660.  PRINT "Ignore ";
  1661.  COLOR 12
  1662.  PRINT "CtlPgUp";
  1663.  COLOR 11
  1664.  PRINT ":";
  1665.  COLOR 10
  1666.  PRINT "Use   ";
  1667.  COLOR 14
  1668.  PRINT CHR$(186);
  1669.  LOCATE 17, 16, 0
  1670.  PRINT CHR$(186);
  1671.  COLOR 12
  1672.  PRINT "Lft ";
  1673.  COLOR 11
  1674.  PRINT ":";
  1675.  COLOR 10
  1676.  PRINT "West  ";
  1677.  COLOR 12
  1678.  PRINT "Rtn";
  1679.  COLOR 11
  1680.  PRINT ":";
  1681.  COLOR 10
  1682.  PRINT "<cr>   ";
  1683.  COLOR 12
  1684.  PRINT "Rgt";
  1685.  COLOR 11
  1686.  PRINT ":";
  1687.  COLOR 10
  1688.  PRINT "East   ";
  1689.  COLOR 12
  1690.  PRINT "CtlPgDn";
  1691.  COLOR 11
  1692.  PRINT ":";
  1693.  COLOR 10
  1694.  PRINT "Chants";
  1695.  COLOR 14
  1696.  PRINT CHR$(186);
  1697.  LOCATE 18, 16, 0
  1698.  PRINT CHR$(186);
  1699.  COLOR 12
  1700.  PRINT "End ";
  1701.  COLOR 11
  1702.  PRINT ":";
  1703.  COLOR 10
  1704.  PRINT "Fight ";
  1705.  COLOR 12
  1706.  PRINT "Dn ";
  1707.  COLOR 11
  1708.  PRINT ":";
  1709.  COLOR 10
  1710.  PRINT "South ";
  1711.  COLOR 12
  1712.  PRINT "PgDn";
  1713.  COLOR 11
  1714.  PRINT ":";
  1715.  COLOR 10
  1716.  PRINT "Cast   ";
  1717.  COLOR 12
  1718.  PRINT "CtlRgt ";
  1719.  COLOR 11
  1720.  PRINT ":";
  1721.  COLOR 10
  1722.  PRINT "Info  ";
  1723.  COLOR 14
  1724.  PRINT CHR$(186);
  1725.  LOCATE 19, 16, 0
  1726.  PRINT CHR$(186);
  1727.  COLOR 12
  1728.  PRINT "Ins ";
  1729.  COLOR 11
  1730.  PRINT ":";
  1731.  COLOR 10
  1732.  PRINT "Help  ";
  1733.  COLOR 12
  1734.  PRINT "Del";
  1735.  COLOR 11
  1736.  PRINT ":";
  1737.  COLOR 10
  1738.  PRINT "Stats ";
  1739.  COLOR 12
  1740.  PRINT "CtlLft";
  1741.  COLOR 11
  1742.  PRINT ":";
  1743.  COLOR 10
  1744.  PRINT "Inv  ";
  1745.  COLOR 12
  1746.  PRINT "ShftTab";
  1747.  COLOR 11
  1748.  PRINT ":";
  1749.  COLOR 10
  1750.  PRINT "Buy   ";
  1751.  COLOR 14
  1752.  PRINT CHR$(186);
  1753.  LOCATE 20, 16, 0
  1754.  PRINT CHR$(186);
  1755.  COLOR 12
  1756.  PRINT "CtlHm";
  1757.  COLOR 11
  1758.  PRINT ":";
  1759.  COLOR 10
  1760.  PRINT "Trade ";
  1761.  COLOR 12
  1762.  PRINT "CtlEnd";
  1763.  COLOR 11
  1764.  PRINT ":";
  1765.  COLOR 10
  1766.  PRINT "Level ";
  1767.  COLOR 12
  1768.  PRINT "Alt-=";
  1769.  COLOR 11
  1770.  PRINT ":";
  1771.  COLOR 10
  1772.  PRINT "User list"; SPACE$(7);
  1773.  COLOR 14
  1774.  PRINT CHR$(186);
  1775.  LOCATE 21, 16, 0
  1776.  PRINT CHR$(200); STRING$(47, CHR$(205)); CHR$(188);
  1777.  LOCATE 5, 66, 0
  1778.  COLOR 11
  1779.  PRINT "Dungeon Runes";
  1780.  LOCATE 6, 66, 0
  1781.  COLOR 14
  1782.  PRINT CHR$(201); STRING$(12, CHR$(205)); CHR$(187);
  1783.  LOCATE 7, 66, 0
  1784.  PRINT CHR$(186);
  1785.  COLOR 12
  1786.  PRINT "X";
  1787.  COLOR 11
  1788.  PRINT "=";
  1789.  COLOR 10
  1790.  PRINT "Player    ";
  1791.  COLOR 14
  1792.  PRINT CHR$(186);
  1793.  LOCATE 8, 66, 0
  1794.  PRINT CHR$(186);
  1795.  COLOR 12
  1796.  PRINT "#";
  1797.  COLOR 11
  1798.  PRINT "=";
  1799.  COLOR 10
  1800.  PRINT "Monster   ";
  1801.  COLOR 14
  1802.  PRINT CHR$(186);
  1803.  LOCATE 9, 66, 0
  1804.  PRINT CHR$(186);
  1805.  COLOR 12
  1806.  PRINT "$";
  1807.  COLOR 11
  1808.  PRINT "=";
  1809.  COLOR 10
  1810.  PRINT "Gold      ";
  1811.  COLOR 14
  1812.  PRINT CHR$(186);
  1813.  LOCATE 10, 66, 0
  1814.  PRINT CHR$(186);
  1815.  COLOR 12
  1816.  PRINT "~";
  1817.  COLOR 11
  1818.  PRINT "=";
  1819.  COLOR 10
  1820.  PRINT "Scroll    ";
  1821.  COLOR 14
  1822.  PRINT CHR$(186);
  1823.  LOCATE 11, 66, 0
  1824.  PRINT CHR$(186);
  1825.  COLOR 12
  1826.  PRINT "^";
  1827.  COLOR 11
  1828.  PRINT "=";
  1829.  COLOR 10
  1830.  PRINT "Trap      ";
  1831.  COLOR 14
  1832.  PRINT CHR$(186);
  1833.  LOCATE 12, 66, 0
  1834.  PRINT CHR$(186);
  1835.  COLOR 12
  1836.  PRINT "o";
  1837.  COLOR 11
  1838.  PRINT "=";
  1839.  COLOR 10
  1840.  PRINT "Pit       ";
  1841.  COLOR 14
  1842.  PRINT CHR$(186);
  1843.  LOCATE 13, 66, 0
  1844.  PRINT CHR$(186);
  1845.  COLOR 12
  1846.  PRINT "*";
  1847.  COLOR 11
  1848.  PRINT "=";
  1849.  COLOR 10
  1850.  PRINT "Gem       ";
  1851.  COLOR 14
  1852.  PRINT CHR$(186);
  1853.  LOCATE 14, 66, 0
  1854.  PRINT CHR$(186);
  1855.  COLOR 12
  1856.  PRINT "!";
  1857.  COLOR 11
  1858.  PRINT "=";
  1859.  COLOR 10
  1860.  PRINT "Teleporter";
  1861.  COLOR 14
  1862.  PRINT CHR$(186);
  1863.  LOCATE 15, 66, 0
  1864.  PRINT CHR$(186);
  1865.  COLOR 12
  1866.  PRINT "?";
  1867.  COLOR 11
  1868.  PRINT "=";
  1869.  COLOR 10
  1870.  PRINT "Temple    ";
  1871.  COLOR 14
  1872.  PRINT CHR$(186);
  1873.  LOCATE 16, 66, 0
  1874.  PRINT CHR$(186);
  1875.  COLOR 12
  1876.  PRINT CHR$(254);
  1877.  COLOR 11
  1878.  PRINT "=";
  1879.  COLOR 10
  1880.  PRINT "Chest     ";
  1881.  COLOR 14
  1882.  PRINT CHR$(186);
  1883.  LOCATE 17, 66, 0
  1884.  PRINT CHR$(186);
  1885.  COLOR 12
  1886.  PRINT ">";
  1887.  COLOR 11
  1888.  PRINT "=";
  1889.  COLOR 10
  1890.  PRINT "Stair Up  ";
  1891.  COLOR 14
  1892.  PRINT CHR$(186);
  1893.  LOCATE 18, 66, 0
  1894.  PRINT CHR$(186);
  1895.  COLOR 12
  1896.  PRINT "<";
  1897.  COLOR 11
  1898.  PRINT "=";
  1899.  COLOR 10
  1900.  PRINT "Stair Down";
  1901.  COLOR 14
  1902.  PRINT CHR$(186);
  1903.  LOCATE 19, 66, 0
  1904.  PRINT CHR$(186);
  1905.  COLOR 12
  1906.  PRINT "|";
  1907.  COLOR 11
  1908.  PRINT "=";
  1909.  COLOR 10
  1910.  PRINT "Wand      ";
  1911.  COLOR 14
  1912.  PRINT CHR$(186);
  1913.  LOCATE 20, 66, 0
  1914.  PRINT CHR$(186);
  1915.  COLOR 12
  1916.  PRINT "@";
  1917.  COLOR 11
  1918.  PRINT "=";
  1919.  COLOR 10
  1920.  PRINT "Potion    ";
  1921.  COLOR 14
  1922.  PRINT CHR$(186);
  1923.  LOCATE 21, 66, 0
  1924.  PRINT CHR$(186);
  1925.  COLOR 12
  1926.  PRINT "%";
  1927.  COLOR 11
  1928.  PRINT "=";
  1929.  COLOR 10
  1930.  PRINT "Staff     ";
  1931.  COLOR 14
  1932.  PRINT CHR$(186);
  1933.  LOCATE 22, 66, 0
  1934.  PRINT CHR$(186);
  1935.  COLOR 12
  1936.  PRINT "&";
  1937.  COLOR 11
  1938.  PRINT "=";
  1939.  COLOR 10
  1940.  PRINT "Coins     ";
  1941.  COLOR 14
  1942.  PRINT CHR$(186);
  1943.  LOCATE 23, 66, 0
  1944.  PRINT CHR$(186);
  1945.  COLOR 12
  1946.  PRINT CHR$(34);
  1947.  COLOR 11
  1948.  PRINT "=";
  1949.  COLOR 10
  1950.  PRINT "Ring      ";
  1951.  COLOR 14
  1952.  PRINT CHR$(186);
  1953.  LOCATE 24, 66, 0
  1954.  PRINT CHR$(200); STRING$(12, CHR$(205)); CHR$(188);
  1955.  COLOR 15
  1956.  LOCATE 23, 27, 0
  1957.  COLOR 13
  1958.  PRINT "Press a listed key for Help";
  1959.  LOCATE 25, 21, 0
  1960.  COLOR 11
  1961.  PRINT "Press <space> to Return to the dungeon";
  1962.  RETURN
  1963.  
  1964. ' routine to display message to wait for keystroke
  1965. Key.Pressed:
  1966.  LOCATE 25, 34, 0
  1967.  PRINT "Press a key..";
  1968.  WHILE INKEY$ = "": WEND
  1969.  RETURN
  1970.  
  1971.